      MODULE employv2kp_c6
      USE employv2kp_c1
      CONTAINS
      SUBROUTINE SSDAAC(ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSDAAC')
      INTEGER ASTAT
      IF(ALLOCATED(C00001)) THEN
       DEALLOCATE(C00001,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00002)) THEN
       DEALLOCATE(C00002,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00003)) THEN
       DEALLOCATE(C00003,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00004)) THEN
       DEALLOCATE(C00004,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00005)) THEN
       DEALLOCATE(C00005,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00006)) THEN
       DEALLOCATE(C00006,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00007)) THEN
       DEALLOCATE(C00007,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00008)) THEN
       DEALLOCATE(C00008,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00009)) THEN
       DEALLOCATE(C00009,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00010)) THEN
       DEALLOCATE(C00010,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00011)) THEN
       DEALLOCATE(C00011,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00012)) THEN
       DEALLOCATE(C00012,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00013)) THEN
       DEALLOCATE(C00013,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00014)) THEN
       DEALLOCATE(C00014,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00015)) THEN
       DEALLOCATE(C00015,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00016)) THEN
       DEALLOCATE(C00016,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00017)) THEN
       DEALLOCATE(C00017,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00018)) THEN
       DEALLOCATE(C00018,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00019)) THEN
       DEALLOCATE(C00019,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00020)) THEN
       DEALLOCATE(C00020,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00021)) THEN
       DEALLOCATE(C00021,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00022)) THEN
       DEALLOCATE(C00022,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00023)) THEN
       DEALLOCATE(C00023,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00024)) THEN
       DEALLOCATE(C00024,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00025)) THEN
       DEALLOCATE(C00025,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00026)) THEN
       DEALLOCATE(C00026,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00027)) THEN
       DEALLOCATE(C00027,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00028)) THEN
       DEALLOCATE(C00028,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00029)) THEN
       DEALLOCATE(C00029,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00030)) THEN
       DEALLOCATE(C00030,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00031)) THEN
       DEALLOCATE(C00031,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00032)) THEN
       DEALLOCATE(C00032,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00033)) THEN
       DEALLOCATE(C00033,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00034)) THEN
       DEALLOCATE(C00034,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00035)) THEN
       DEALLOCATE(C00035,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00036)) THEN
       DEALLOCATE(C00036,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00037)) THEN
       DEALLOCATE(C00037,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00038)) THEN
       DEALLOCATE(C00038,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00039)) THEN
       DEALLOCATE(C00039,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00040)) THEN
       DEALLOCATE(C00040,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00041)) THEN
       DEALLOCATE(C00041,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00042)) THEN
       DEALLOCATE(C00042,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00043)) THEN
       DEALLOCATE(C00043,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00044)) THEN
       DEALLOCATE(C00044,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00045)) THEN
       DEALLOCATE(C00045,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00046)) THEN
       DEALLOCATE(C00046,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00047)) THEN
       DEALLOCATE(C00047,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00048)) THEN
       DEALLOCATE(C00048,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00049)) THEN
       DEALLOCATE(C00049,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00050)) THEN
       DEALLOCATE(C00050,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00051)) THEN
       DEALLOCATE(C00051,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00052)) THEN
       DEALLOCATE(C00052,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00053)) THEN
       DEALLOCATE(C00053,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00054)) THEN
       DEALLOCATE(C00054,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00055)) THEN
       DEALLOCATE(C00055,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00056)) THEN
       DEALLOCATE(C00056,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00057)) THEN
       DEALLOCATE(C00057,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00058)) THEN
       DEALLOCATE(C00058,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00059)) THEN
       DEALLOCATE(C00059,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00060)) THEN
       DEALLOCATE(C00060,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      IF(ALLOCATED(C00061)) THEN
       DEALLOCATE(C00061,STAT=ASTAT)
       IF(ASTAT.NE.0) GOTO 24300
      END IF
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24300 CONTINUE
      CALL GPDERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSDAAC
      END MODULE employv2kp_c6
